home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls074c.sunsparc.Z / tls074c.sunsparc / lib / vtcl / tests / sensitive.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.1 KB  |  49 lines
  1. # CVS $Id: sensitive.tcl,v 1.3 1995/02/03 16:55:17 zibi Exp $
  2. #
  3. # Test sensitive callback
  4. #
  5.  
  6. source tools.tcl
  7.  
  8. proc senCB {dl targ1 targ2 cbs} {
  9.      set sen [VtGetValues $targ1 -sensitive]
  10.      if {$sen} {
  11.      set v 0
  12.      set newLabel "I'm a Swine"
  13.      } else {
  14.      set v 1
  15.      set newLabel "I'm So Sensitive"
  16.      }
  17.  
  18.      VtSetValues $targ1 -label $v -label $newLabel
  19.      VtSetValues $targ2 -label $v -label $newLabel
  20.  
  21.      # Set sensitivity both ways
  22.      VtSetValues $targ1 -sensitive $v
  23.      VtSetSensitive $targ2 $v
  24.      VtSetSensitive $dl $v
  25. }
  26.  
  27. set ap [VtOpen sens]
  28.  
  29. set dlog [VtFormDialog $ap.form]
  30.  
  31. set dl [VtDrawnList $dlog.dl -formatList {{STRING 40}} \
  32.          -recordList {a b c d} -rows 2 -rightSide FORM]
  33.  
  34. set rc [VtRowColumn $dlog.rc]
  35.  
  36. set but1 [VtPushButton $rc.but1 -label "I'm So Sensitive"]
  37. set but11 [VtPushButton $rc.but11 -label "I'm So Sensitive"]
  38.  
  39.  
  40. set but2 [VtPushButton $rc.but2 -label "Toggle sensitivity" \
  41.                -callback "senCB $dl $but1 $but11" ]
  42. set but3 [VtPushButton $rc.but3 -label "Exit" \
  43.                -callback QuitCB ]
  44.  
  45.  
  46. VtShow $dlog
  47.  
  48. VtMainLoop
  49.